begin "follow"
integer TV, MP, OLD;
print ("Physical TV number to follow: "); TV ← (6 lsh 33 + 1) + cvo(inchwl) lsh 18;
print ("Where to watch (CR for this TV, else LOGICAL line #): "); MP ← cvo(inchwl);
if MP = 0 then start_code seto 1,; ttcall 6,1; hrrzm 1,MP end;
MP ← 1 lsh 27 + MP lsh 18;
start_code label swr;
	seto;
	calli '400066;
	tlo '300000;
	calli '400066;
	setz;
	calli '400015;
	 jfcl;
	setom OLD;
	hrri swr;
	hrli '400017;
	calli '400003;
	ttcall;
	calli '12;
swr:	move TV;	comment WARNING! Remember IOT-USER mode!;
	calli '400070;
	move 1,MP;
	came OLD;
	 calli 1,'400070;
	 jfcl;
	movem OLD;
	calli '400024
end
end "follow"